state <- map_data("state")
county <- map_data("county")
lowa_point <- data.frame("x" = -86.905274, "y" = 36.269134)

tn <- county %>% 
  filter(region=="tennessee")

co <- county %>% 
  filter(region=="tennessee") %>% 
  filter(subregion=="davidson")

ggplot() + geom_polygon(data = state, aes(x=long, y = lat, group = group),
                        fill = "white", color="black") + 
           geom_polygon(data = tn, aes(x=long, y = lat, group = group),
                        fill = "gray", color="black") + 
           geom_polygon(data = co, aes(x=long, y = lat, group = group),
                        fill = "yellow", color="black") + 
           geom_point(data = lowa_point, aes(x=x,y=y), color="navy") +
  coord_fixed(xlim = c(-90, -82.5),  ylim = c(34.8, 37), ratio = 1.2) + 
  xlab("Longitude") + ylab("Latitude") + ggtitle("Beaman Park, Davidson Co., TN")

Map of one of my study sites, located in the Cheatham Wildlife Management Area in Cheatham County, TN.

lowaOGR <- readOGR("./data/Beaman2021.kml")
## OGR data source with driver: KML 
## Source: "/Users/JlaMacAir/Documents/r_docs/personal-website/data/Beaman2021.kml", layer: "beamanlowa2021.csv"
## with 6 features
## It has 2 fields
lowa2OGR <- readOGR("./data/Rotary2021.kml")
## OGR data source with driver: KML 
## Source: "/Users/JlaMacAir/Documents/r_docs/personal-website/data/Rotary2021.kml", layer: "rotary_lowa_2021.csv"
## with 3 features
## It has 2 fields
lowa3OGR <- readOGR("./data/Schiller2021.kml")
## OGR data source with driver: KML 
## Source: "/Users/JlaMacAir/Documents/r_docs/personal-website/data/Schiller2021.kml", layer: "schiller_lowa_2021.csv"
## with 3 features
## It has 2 fields
lowa4OGR <- readOGR("./data/Cheatham2021.kml")
## OGR data source with driver: KML 
## Source: "/Users/JlaMacAir/Documents/r_docs/personal-website/data/Cheatham2021.kml", layer: "cheatham_lowa_2021.csv"
## with 4 features
## It has 2 fields

Photo of a Louisiana Waterthrush from one of our study sites:

Color bands make identifying individuals in the field possible without recapturing them